home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / pdrd2.zip / RD.ZIP / RD_DEMO5.PRG < prev    next >
Text File  |  1993-01-11  |  1KB  |  48 lines
  1. /*
  2.     RD_DEMO5.PRG
  3.  
  4.     This demonstrates the use of the API, ADr_lbuttons() to define hot
  5.     spots.
  6. */
  7.  
  8. #include "read.ch"
  9.  
  10. //---------
  11. func main()
  12. local getlist[0]
  13. local cShort := "Short string"
  14. local cLong := "This is a very long string.  It is '@S PICTUREd'.  This is the last of three sentences."
  15. local nT := 3, nL := 10, nB := 6, nR := 50
  16. local cColor := setcolor( if( iscolor(), "W+/BG, GR+/R,,, N/R", nil ) )
  17. local aScn, aScn2
  18. local bConfig := {|e| ADr_lbuttons( e,;
  19.                                     { {nT-1,31,nT-1,34}, {nT-1,38,nT-1,49} },;
  20.                                     {|e,nth,mrow,mcol| Xbuttons5(e,nth,mrow,mcol,nB)};
  21.                                   );
  22.                   }
  23.  
  24. cls
  25. aScn = ADbox( nT, nL, nB, nR )
  26. aScn2 = ADsavescn( nT-1, nL, nT-1, nR )
  27. setpos( nT-1, nL )
  28. dispout( " Hot Spots -->       Beep │ View Keys.Rd ", if( iscolor(), "W+/B", "N/W" ) )
  29. @nT+1, nL+2 say "Short String" adget cShort
  30. @nT+2, nL+2 say "Long String " adget cLong picture "@S24"
  31. ADread( getlist, bConfig )
  32. ADrestscn( aScn2 )
  33. ADrestscn( aScn )
  34. setcolor( cColor )
  35. return nil
  36.  
  37.  
  38. //--------------------------------
  39. func Xbuttons5(e,nth,mrow,mcol,nB)
  40.  
  41. if nth = 1
  42.     tone(100,1)
  43. elseif nth = 2
  44.     ADm_rwait()
  45.     ADviewfile( "KEYS.RD",, {nB+2} )
  46. endif
  47. return nil
  48.